home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 013 / suprsphr.abc < prev    next >
Text File  |  1995-03-17  |  3KB  |  105 lines
  1. 1000  ' SuperSphere Version 1.0 - - - - - 12/06/85
  2. 1100  ' By Kelly Kauffman
  3. 1200  ' 
  4. 1300  ' This program is derived from the original Atari 8-bit version,
  5. 1400  ' and the Amiga translation.  The program runs considerably faster
  6. 1500  ' due to the extensive use of the "Circle" command, rather than
  7. 1600  ' putting points in arrays and drawing lines connecting them.  The
  8. 1700  ' circles are also much rounder.
  9. 1800  '
  10. 1900  ' There is a bug in the "Circle" command that is demonstrated on the
  11. 2000  ' small "planets," at least that is when it is most noticeable.  It
  12. 2100  ' jets out a bit (to alot) from the circle, leaving you with big-ole
  13. 2200  ' lines outside of your "planet."  I can't figure out how to get rid
  14. 2300  ' of 'em, so if you do, please upload it so everyone can have your
  15. 2400  ' fix.  Please leave my name on this, as I have worked VERY HARD in
  16. 2500  ' getting the formulas to work correctly....Thanx!!!
  17. 2600  ' 
  18. 2700  ' Hold down the left mouse button, while the program is running
  19. 2800  ' to exit.  Make sure you hold it down---it may take a second.
  20. 2900  '
  21. 3000  '
  22. 3100  '
  23. 3200  '
  24. 3300  '
  25. 3400  '
  26. 3500  randomize -1
  27. 3600  screen 0,4
  28. 3700  rgb 0,0,0,0:rgb 15,0,0,0
  29.  
  30. 3800  rgb 1,10,10,10
  31. 3900  rgb 3,15,6,0:rgb 9,0,0,15
  32.  
  33. 4000  rgb 10,3,6,15:rgb 11,7,7,15
  34.  
  35. 4100  rgb 12,12,0,14:rgb 13,15,2,14
  36.  
  37. 4200  gosub 8700:gosub 8500
  38. 4300  scnclr
  39. 4400  peno 2
  40. 4500  a=2
  41. 4600  gosub 6500
  42. 4700  str=(hi/100)*5:a=int(rnd*14):for i=1 to 19
  43. 4800  a=a+1:if a>14 then a=2
  44. 4900  peno a
  45. 5000  hi=hi-str
  46. 5100  circle (x,y),wide,hi/wide
  47. 5200  next i
  48. 5300  return
  49. 5400  goto 6400
  50. 5500  str=(hi/100)*5
  51. 5600  a=int(rnd*14)
  52. 5700  for i=1 to 19
  53. 5800  a=a+1:if a>14 then a=2
  54. 5900  peno a
  55. 6000  hi=hi-str
  56. 6100  circle (x,y),hi,wide/hi
  57. 6200  next i
  58. 6300  return
  59. 6400  rem end
  60. 6500  rem
  61. 6600  wide=rnd*100
  62. 6700  x=rnd*385
  63. 6800  y=rnd*150
  64. 6900  hi=wide
  65. 7000  ask mouse x%,y%,b%:if b%=4 then 10400
  66. 7100  gosub 7600
  67. 7200  gosub 4700
  68. 7300  hi=wide
  69. 7400  gosub 5500
  70. 7500  goto 6500
  71. 7600  hig=hi
  72. 7700  hig=hi
  73. 7800  for i=1 to 100
  74. 7900  peno 0
  75. 8000  circle(x,y),wide,hig/wide
  76. 8100  hig=hig-1:if hig<1 then i=100
  77. 8200  next i
  78. 8300  pena 0:draw (x-wide,y to x+wide,y)
  79. 8400  return
  80. 8500  window 1,0,0,320,200,"SuperSphere V1.0 by Kelly Kauffman"
  81. 8600  cmd 1:return
  82. 8700  hi=180
  83. 8800  box (0,0;319,199),1
  84. 8900  x=151:y=90
  85. 9000  wide=180
  86. 9100  for i=1 to 100 step .5
  87. 9200  circle (x,y),wide,hi/wide
  88. 9300  a=a+1:if a>14 then a=2
  89. 9400  peno a
  90. 9500  pena a-1:outline 1:paint (x,y),1
  91. 9600  hi=hi-7
  92. 9700  if hi<1 then i=100
  93. 9800  next i
  94. 9900  drawmode 1:peno 1:pena 4:penb 2:graphic (1)
  95. 10000 ? at(100,80);inverse(1);" SuperSphere ";:penb 0:pena 9:? at(85,100);inverse(0);"by Kelly Kauffman"
  96. 10100 ask mouse x%,y%,b%
  97. 10200 if b%=0 then 10100
  98. 10300 return
  99. 10400 close 
  100. 10500 screen 0,4,0
  101. 10600 end
  102.  
  103.  
  104.  
  105.